Aminet 34/Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso/Aminet/comm/irc/cybershiela.lha/cs/cs_rude.amirx

Text File | 1999-07-05 | 1KB | 28 lines

/* CyberShiela MultiResponse File */
nick=getclip('NICK')
xx=random(1,14,time('s'))
select
when xx=1 then a="Do you have a case of penis envy $1?"
when xx=2 then a="Whats your major malfunction $1?!?!"
when xx=3 then a="Do you have a problem with me $1?"
when xx=4 then a="If you got a prob with me.. just spit it out $1.. I'm tired of your fuckng whining."
when xx=5 then a="I'm really pissed at you $1.  You act so immature.  Grow the FUCK UP!!"
when xx=6 then a="jeez.. "
when xx=7 then a="Were you born a total ass $1?"
when xx=8 then a="I bet you like to masturbate $1. Don't you? "
when xx=9 then a="$1...you shag sheep dont' you?"
when xx=10 then a="Damn $1..why didn't you just say so in the first place?"
when xx=11 then a="$1!!!"
when xx=12 then a="holy shit $1..who beat you with the ugly stick?"
when xx=13 then a="God your one ugly bastard $1."
when xx=14 then a="$1..are you sure your name isn't Terry Cooksey?"
end
modif:
user=nick
old=a
m=length(user);temp=a;x=pos("$1",temp);if x~=0 then do;temp2 = delstr(temp,x,2);old = insert(user,temp2,x-1,m," ");end
temp=old;m=length(channam);x=pos("$chan",temp);if x~=0 then do;temp2 = delstr(temp,x,5);old = insert(channam,temp2,x-1,m," ");end
a=old
'say 'A
exit